home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / misc / xqsrc1_7.lzh / include / dejmac.i next >
Text File  |  1992-05-24  |  1KB  |  53 lines
  1. *
  2. *
  3. * Utility Macro Include file
  4. *
  5. * Collated Nov. 13, 1988 by David Jones
  6. *
  7. *
  8.  
  9. G           EQUR     A4
  10. L           EQUR     A5
  11.  
  12. LINKSYS     MACRO
  13.             IFNE NARG-2
  14.                FAIL *** Need two arguments to LINKSYS ***
  15.             ENDC
  16.             move.l a6,-(sp)
  17.             move.l \2,a6
  18.             jsr    _LVO\1(a6)
  19.             move.l (sp)+,a6
  20.             ENDM
  21.  
  22. CALLSYS     MACRO
  23.             IFNE NARG-2
  24.                FAIL *** Need to arguments to CALLSYS ***
  25.             ENDC
  26.             move.l \2,a6
  27.             jsr    _LVO\1(a6)
  28.             ENDM
  29.  
  30. CALL        MACRO
  31.             IFNE NARG-1
  32.                FAIL *** Need one argument to CALL ***
  33.             ENDC
  34.             jsr    _LVO\1(a6)
  35.             ENDM
  36.  
  37. LIBFINIT    MACRO
  38. foffset     set -$1E
  39.             ENDM
  40.  
  41. LIBFDEF     MACRO
  42. _LVO\1       equ foffset
  43. foffset     set    foffset-6
  44.             ENDM
  45.  
  46. BEGINIO     MACRO    ; IORequest A1
  47.             move.l   A6,-(SP)
  48.             move.l   IO_DEVICE(A1),A6
  49.             jsr      DEV_BEGINIO(A6)
  50.             move.l   (SP)+,A6
  51.             ENDM
  52.  
  53.